Top 10k strings from Video Basic - Issue 14 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
8 A$="PON EN MARCHA LA GRABADORA":
8 0000000000000000000000000000
8 "4";"ESTA BIEN ESCRITO ? (S/N)";
8 "23606",z:
8 "10",z;" PARA LA GRABADORA ":
7 t$=" PULSA UNA TECLA PARA CONTINUAR "
7 U;" ";N$;" "
7 "9",N;" ~|";
7 "8",N;A$(N-2
7 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
7 "10",N;" \]"
7 PASO A LA PARTE";
6 "6";" SIGUIENTE"
6 "28"-J/A,ER+J/A*.7
6 "126-XL/2",
6 "10-a/2",U;
5 VUELTA AL PRINCIPIO";
5 *
4 T$=" ELIGE, "+N$+":":
3 t$(2)-48":
3 i+x,i*b+y:
3 b$=" ":
3 T$=" ELIGE, "+n$+":":
3 "i*2+1",u;
3 "18",Z,,,,,,;
3
2 t$(3)-48":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 p$="Pulsa una tecla":
2 a$="INTERFACE 1":
2 U;"ARCHIVO=A$ N=NUMERO REGISTRO":
2 LETREROS ENTRANTES
2 LEE LOS UDG
2 HOMBRECILLO
2 ;"VIDEOBASIC":
2 ;" ":
2 ;" ":
2 1985 VIDEOBASIC ":
2 0000888888800000000000000000
2 00008(((((800000000000000000
2 ,XX;" ";
2 *7";o$(i):
2 "i*2+1",u;b$:
2 "BIEN, "+N$+"
2 "3795"(i),u;
2 "30";" ";
2 "23617",Z:
2 "23296"+N,
2 "12",u;b$:
2 "(21-YP)*8-2":
2 SOFTIDEA (Como)
2 PARA LA GRABADORA
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y3=y3+b(b1,4
1 y1=y1+my1:
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 x3=x3+b(b1,3
1 x2=x2+b(b1,1
1 x1=x1+mx1:
1 x1-x,y1-y:
1 w$="ESTA LECCION ESTA DEDICADA ALMICRODRIVE Y AL FLOPPY DISK.":
1 u;"F$:ARCHI I:VAR.CONT. C$=BUSQUEDA"
1 u;"EXACTO !":
1 u;"ESTA ES LA INSTRUCCION EXACTA:":
1 u;"ESCRITURA SECUENCIAL":
1 u;" NO ES CORRECTO !!...OTRA VEZ ":
1 u;" LECTURA SECUENCIAL ":
1 u;" LECTURA ALEATORIA ":
1 t$="SAVE *""N"";3":
1 t$="MERGE *""N"";4":
1 t$="LOS <3> REGISTROS SON UN EJEM-PLO. EN REALIDAD EL NUMERO DEREGISTROS ESTARA SIEMPRE CON-TENIDO EN UNA VARIABLE.":
1 t$="LA LONGITUD DE CADA REGISTROPUEDE SER CONSTANTE, (COMO ENEL EJEMPLO ANTERIOR) O VARIA-BLE, Y EN ESTE CASO YA NO ES-TARA CONSTITUIDA POR LA SUMADE LAS LONGITUDES DE LOS CAM-POS, SINO QUE SERA PROPORCIO-NAL A LA LONGITUD DE LAS IN-FORMACIONES EN ELLOS CONTENI-DAS:":
1 t$="KBYTE DISPONIBLES":
1 t$="EXISTE ADEMAS UN SEGUNDO METO-DO DE ACCESO DIRECTO: POR CLA-VES O INDICES.PERMITE ESCRIBIRO LEER UN ARCHIVO EN BASE ALCONTENIDO DE UNO O MAS DE SUSCAMPOS, QUE CON ESTE OBJETODEBEN HABER SIDO PREVIAMENTEINDICADOS COMO ELEMENTOS DEBUSQUEDA.":
1 t$="ESTE ULTIMO TIPO DE ARCHIVOUSA LA TOTALIDAD DEL ESPACIOQUE OCUPA, PERO SU MANEJO ESMAS COMPLICADO; POR ESO SE EM-PLEA UNICAMENTE EN AQUELLASAPLICACIONES EN LAS CUALES LAOCUPACION EXCESIVA DE MEMORIAPUEDE SER IMPORTANTE.":
1 t$="EL ARCHIVO ESTA COMPUESTO PORELEMENTOS LLAMADOS <REGISTROS>QUE CONTIENEN INFORMACION, YESTAN LIGADOS POR UNA RELA-CION.":
1 t$="EL ACCESO ALEATORIO EN CAMBIO,PERMITE LEER O ESCRIBIR DIREC-TAMENTE EN UN PUNTO CUALQUIERADEL ARCHIVO.":
1 t$="CUANDO LOS DATOS A MEMORIZARSEAN TANTO NUMEROS COMO LE-TRAS,SE ACOSTUMBRA A DIMENSIO-NAR UNA MATRIZ ALFANUMERICA,ES DECIR, SE CONSIDERA FORMADAPOR CADENAS Y CADA UNO DE SUSELEMENTOS ES SUBDIVIDIDO I-DEALMENTE PARA CONSIDERARLOCOMO UN CAMPO.":
1 t$="CADA REGISTRO ESTA A SU VEZDIVIDIDO EN <CAMPOS> QUE CON-TIENEN INFORMACIONES UNICAS.ENESTE EJEMPLO EXISTEN TRES CAM-POS, NOMBRE, DIRECCION, Y NU-MERO DE TELEFONO.":
1 t$="ARCHIVOS Y PROGRAMAS":
1 t$="AHORA, "+N$+"
1 t$="-------":
1 t$=" "+t$:
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 q$=" PULSA UNA TECLA PARA CONTINUAR "
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="al Interface 1 ":
1 p$="\/\/\/\/\/\/\/":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Tranquilidad ":
1 p$="Simulador de vuelo ":
1 p$="Programacion Estructurada ":
1 p$="PARA":
1 p$="Nombre ? ":
1 p$="Nacio el ...... ":
1 p$="Microdrive y ":
1 p$="Los archivos:PRINT# - INPUT#":
1 p$="Juego de adivinanzas sobre ":
1 p$="Instrucciones relativas ":
1 p$="Funciones Trigonometricas ":
1 p$="Floppy Disk Drive ":
1 p$="Evolucion de un dibujo ":
1 p$="En el proximo numero... ":
1 p$="El Modem ":
1 p$="CINTA":
1 p$="Bombas de Profundidad ":
1 p$="Biorritmos":
1 p$="Biorritmos ":
1 p$="Biorritmo para el":
1 p$="Archivo ":
1 p$="......":
1 p$=" = Ciclo Intelectual":
1 o$(i+u)=a$
1 o$(i)>o$(i+u)
1 o$(i)=o$(i+u):
1 n;" ":
1 m(a)=days:
1 m$(U)="Enero":
1 copy=23760
1 color=(color=Z):
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a2=a2+1900
1 a2=a2+(m=13
1 a1=a1+1900
1 a$="RED LOCAL":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 Z,Z;"Biorritmo de ";n$'"para el ";m;"/";a2;" nacio el ";g1;"/";m1;"/";l$(3
1 Z,Z;" "
1 YY,XX;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="*PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 W$="YA TE HABRAS DADO CUENTA DE LOINCOMODA QUE RESULTA LA GRABADO-RA COMO MEMORIA DE MASA,EL TIEM-PO QUE EMPLEA PARA LEER Y GRABARDATOS EN EL CASETE, Y LOS PRO-BLEMAS QUE OCASIONA SU ESCASAFIABILIDAD DE GRABACION.":
1 W$="Y NO ES ESO SOLO: TAMBIEN TIENESQUE TENER ANOTADOS LOS NOMBRESDE TODOS LOS PROGRAMAS GRABADOS,PARA NO TENER QUE PERDER HORASBUSCANDOLOS.":
1 W$="TEN EN CUENTA QUE EL ACCESO A UNDISQUETE SE REALIZA EN POCOS SE-GUNDOS, Y SU CAPACIDAD PUEDELLEGAR A 400 K.":
1 W$="SOBRE ALGUNOS DE ESTOS CARTUCHOSSE PUEDE MEMORIZAR APROXIMADA-MENTE 95 K, Y LA LECTURA DE LATOTALIDAD DE LA CINTA SE EFECTUAEN UN MAXIMO DE 7/8 SEGUNDOS.":
1 W$="POR TODAS ESTAS RAZONES, SE HANINVENTADO OTROS DISPOSITIVOS CA-PACES DE GUARDAR DATOS SOBRE SO-PORTE MAGNETICO, Y CUYA VELOCI-DAD DE EJECUCION ES MUCHO MAYOR.":
1 W$="POR LO TANTO RESULTA EVIDENTE LACOMODIDAD DE USO DE ESTE PERIFE-RICO.":
1 W$="MEDIANTE EL ENVIO DE INFORMACIO-NES ADECUADAS AL CABEZAL,SE MAG-NETIZAN AREAS DEL DISQUETE, CON-SERVANDOSE ASI LOS DATOS.":
1 W$="LA UNIDAD DE FLOPPY DISK RESULTAAUN MAS RAPIDA Y POTENTE, PEROTIENE COMO DESVENTAJA SER MASCARA QUE UN MICRODRIVE.":
1 W$="LA LECTURA Y ESCRITURA SOBRE UNFLOPPY DISK, SE REALIZA MEDIANTEUN CABEZAL DESPLAZADO RADIALMEN-TE SOBRE EL DISQUETE QUE GIRARAPIDAMENTE MOVIDO POR UN MOTOR.":
1 W$="ESTOS DISPOSITIVOS RESULTAN IN-DISPENSABLES PARA QUIENES TENGANQUE CARGAR Y MEMORIZAR DATOSCONSTANTEMENTE.":
1 W$="ESTAMOS HABLANDO DE LOS <DISQUE-TES> PARA <FLOPPY DISK> Y DELOS <CARTUCHOS> PARA <MICRODRI-VE>.":
1 W$="EN LA LECCION DE ""LENGUAJE"" TEN-DRAS LA POSIBILIDAD DE APRENDERLOS COMANDOS DEL INTERFACE 1."
1 W$="EL MICRODRIVE EMPLEA COMO SOPOR-TE, CARTUCHOS CONSTITUIDOS PORALGUNOS METROS DE CINTA ENVUELTAEN ESPIRAL SOBRE UNA RUEDA, CONLOS EXTREMOS UNIDOS.":
1 W$="DE ESTA MANERA, CUANDO LA CINTAHA LLEGADO AL FINAL,VUELVE A EM-PEZAR AUTOMATICAMENTE DESDE ELPRINCIPIO.":
1 W$="AMBOS NECESITAN UN INTERFACE PA-RA PODER CONECTARLOS AL SPEC-TRUM. EN EL CASO DEL MICRODRIVESE TRATA DEL INTERFACE 1.":
1 W$="ADEMAS DE MANEJAR HASTA 8 MICRO-DRIVE, EL INTERFACE 1 PUEDE CO-NECTAR 64 SPECTRUM Y QL. CONTIE-NE UN INTERFACE SERIE RS232."
1 W$=" ELIGE: R REPETIR C CONTINUAR "
1 W$=" PARA LA GRABADORA":
1 Via Indipendenza 88
1 VISUALIZACION BLOQUE
1 VISUALIZA EN PANTALLA EL INDI-CE DE UN CARTUCHO CAT
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOHARD
1 VIDEOBREAK(
1 VIDEOBASIC N.14
1 U;"XX=INICIO CAMPO YY=FIN CAMPO":
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"MODIFICACION",:
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ESCRITURA ALEATORIA":
1 U;"ERROR !":
1 U;"C=BUSCAR I=INTRODUCE F=FIN ":
1 U;"----CAMPO----":
1 U;" - REGISTRO -":
1 U+U;"DIM A$(3,18)"
1 U+U,XP;A$;
1 TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO, Y LUEGO DIRECTAMENTE AINSTRUCCIONES <BASIC>.",""
1 TIPO DE ARCHIVO QUE SE LEE OESCRIBE REGISTRO TRAS REGISTRO SECUENCIAL
1 TEST
1 TABLA TEST
1 TAB.LENG6 U
1 TAB.LENG5
1 TAB.LENG4
1 TAB.LENG3
1 T$="Y AHORA INTRODUCE NOMBRES. OB-SERVA EL EFECTO DE SU ORDENA-CION.":
1 T$="UN NUEVO REGISTRO, QUE CONTIE-NE INFORMACIONES GENERADAS POREL PROGRAMA, ES SUMADO A AQUE-LLOS YA EXISTENTES.":
1 T$="TODOS ESTOS ALGORITMOS SE PUE-DEN MODIFICAR PARA CONSIDERARUN UNICO CAMPO:":
1 T$="SI SE DESEA ORDENAR LOS REGIS-TROS DE UN ARCHIVO SE PUEDEEMPLEAR EL SENCILLO <BUBBLESORT>...":
1 T$="SI LOS REGISTROS SON SECUEN-CIALES ES POSIBLE USAR EL TER-MINO DE BUSQUEDA DICOTOMICA:":
1 T$="SI LAS VARIABLES <N$>, <EDAD>Y <TEL> CONTIENEN LAS INFORMA-CIONES QUE DESEAMOS MEMORIZAREN LOS RESPECTIVOS CAMPOS DELREGISTRO <2>, HE AQUI COMO DE-BERIAMOS PROCEDER:":
1 T$="SAVE *""N"";2":
1 T$="QUIZAS SEA MEJOR QUE VUELVAS AVER EL PROGRAMA, Y LO INTENTESDE NUEVO.":
1 T$="PERO ES POSIBLE SUPERAR ESTADIFICULTAD EMPLEADO UNA ES-TRUCTURA MANEJABLE DESDE ELBASIC, Y BASTANTE APTA PARASIMULAR ARCHIVOS: LA MATRIZ.":
1 T$="PERO ES IMPORTANTE QUE TODASLAS OPERACIONES DE DESPLAZA-MIENTO SEAN SIEMPRE PARA LATOTALIDAD DEL ARCHIVO. EN CASOCONTRARIO, TODAS LAS UNIONESLOGICAS SE PIERDEN, Y LOS CAM-POS QUEDAN REDUCIDOS A LISTASDE DATOS CARENTES DE UTILIDAD.":
1 T$="PERO EL ACCESO A INDICES RE-QUIERE UNA GRAN CAPACIDAD DEMEMORIA, Y SOSFISTICADAS RUTI-NAS DE GESTION POR PARTE DELSISTEMA OPERATIVO, POR LO QUESOLO ES ASEQUIBLE EN ORDENADO-RES DE GRANDES DIMENSIONES UORIENTADOS A APLICACIONES PRO-FESIONALES.":
1 T$="PARA HACERLE SITIO AL NUEVODATO, TODOS LOS REGISTROS DECONTENIDO SUPERIOR HAN SIDODESPLAZADOS UNA POSICION HACIAARRIBA.":
1 T$="LOS METODOS DE ACCESO A LASINFORMACIONES CONTENIDAS EN UNARCHIVO SON FUNDAMENTALMENTEDOS: * SECUENCIAL ; * ALEATORIO (RANDOM).":
1 T$="LOAD *""N"";1":
1 T$="LA VARIABLE <L> CONTENDRA ELNUMERO DEL REGISTRO BUSCADO, ODEL INMEDIATAMENTE POSTERIOR.":
1 T$="INTENTA ESCRIBIR LAS INSTRUC-CIONES QUE HACEN REFERENCIA ALINTERFACE 1, CUANDO TE LAS VA-YA PIDIENDO.":
1 T$="IGUALMENTE SERA POSIBLE LEERLOS DATOS CON:":
1 T$="HE AQUI COMO SE INTERPRETA UN <CAT>:":
1 T$="HE AQUI COMO ES POSIBLE COLO-CAR REGISTROS EN LA SECUENCIACORRECTA. PARA SIMPLIFICARTRABAJAREMOS CON UN SOLO CAM-PO:":
1 T$="FORMAT ""M"";1;""VBASIC""":
1 T$="ESTOS SON MANEJADOS A PARTEPOR EL SISTEMA OPERATIVO,QUIEN SE OCUPA DE MANTENERLOSORDENADOS Y DE ASIGNARLES ELNUMERO DE REGISTRO AL QUE SEREFIEREN; ESTO HACE QUE LABUSQUEDA SEA LO MAS RAPIDA PO-SIBLE.":
1 T$="ESTE ES EL EFECTO DE <ERASE>":
1 T$="ERASE ""M"";1;""Progr 1""":
1 T$="ELIGE, "+N$+":":
1 T$="EL SPECTRUM SIN INTERFACE 1 NOES CAPAZ DE MANEJAR ARCHIVOS.":
1 T$="EL REGISTRO INDICADO ES TRANS-FERIDO DESDE EL ARCHIVO A LOSCAMPOS DE ENTRADA.":
1 T$="EL REGISTRO INDICADO ES ELIMI-NADO DEL ARCHIVO.":
1 T$="EL CONTENIDO DEL REGISTRO IN-DICADO, ES MODIFICADO EN BASEA INFORMACIONES PROPORCIONADASPOR EL PROGRAMA.":
1 T$="EL CARTUCHO ESTA PREPARADO PA-RA MEMORIZAR DATOS, CUYOS NOM-BRES SERAN LISTADOS POR...":
1 T$="EL ARCHIVO ES UNA SECUENCIAORDENADA DE INFORMACIONES: SEPUEDE COMPARAR CON UN FICHEROCLASICO DE OFICINA.":
1 T$="EL ACCESO SECUENCIAL TRATA LOSREGISTROS CONSECUTIVAMENTE,ES-CRIBIENDO O LEYENDO UNO A CON-TINUACION DEL OTRO, SEGUN UNORDEN ASCENDENTE.":
1 T$="DE ESTA MANERA RESULTA SENCI-LLO EXTRAER REGISTROS QUE CON-TIENEN DETERMINADAS INFORMA-CIONES EN EL CAMPO ELEGIDO...":
1 T$="CON INDEPENDENCIA DEL TIPO DEACCESO EMPLEADO, UN ARCHIVO ESMANEJADO POR CUATRO TIPOS DIS-TINTOS DE OPERACIONES:":
1 T$="CAT 1":
1 T$="AUNQUE SU USO EN EL CAMPO DELTRATAMIENTO DE DATOS ES FUNDA-MENTAL, SU ESTRUCTURA LE COM-PETE EXCLUSIVAMENTE A LA IN-FORMATICA.":
1 T$="AHORA, "+N$+"":
1 T$="AHORA VAMOS A REALIZAR ALGUNASOPERACIONES SOBRE EL MICRODRI-VE....":
1 T$="...Y HE AQUI COMO SE ORDENA UN ARCHIVO:":
1 T$="...O EL RAPIDO ALGORITMO DESHELL.":
1 T$=" IF A=B THEN LET B=5+6 PRINT X+""BASIC"" FOR X=3 TO 24":
1 T$=" FOR J=Q TO 5 << PRINT AT 6,12;""BASIC"" << IF A=B":
1 T$()=T$(u+u
1 SOFTIDEA COMO
1 SOFTIDEA (Como)
1 SIMBOLO DEL FLUJO DE DATOS #
1 SCROLL=23828
1 RUTINA MAQUINA DE ESCRIBIR
1 ROTULOS ROTATORIS
1 REGISTRO DEL NOMBRE
1 PROGRAMA
1 PORTADA T
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$="Pulsa una Tecla ":
1 P$="PULSA UNA TECLA PARA CONTINUAR":
1 P$="PON EN MARCHA LA GRABADORA":
1 P$=" = Ciclo Fisico":
1 P$=" = Ciclo Emocional":
1 P$=" PARA LA GRABADORA "
1 P$=" en el numero 15 ":
1 OBSERVA COMO LA BUSQUEDA SEREALIZA UNICAMENTE EN BASE ALOS CARACTERES CONTENIDOS ENC$.",""
1 O,i;A$(i-2
1 N$=N$+" ":
1 M-15346-1985
1 LONGITUD EN BYTES DE UN SECTORDEL CARTUCHO 512
1 LETREROS ROTATORIOS
1 LENGUAJE 6
1 LENGUAJE 5
1 LENGUAJE 4d
1 LENGUAJE 3
1 LENGUAJE 21
1 LENGUAJE 13
1 JUEGO
1 INTRODUCE DATOS DESDE UN CANAL INPUT#
1 INICIALIZA UN CARTUCHO VIRGEN FORMAT
1 INGELEK JAKSON
1 I","*1 ","1A
1 HAS ESCRITO CORRECTAMENTE UNPROGRAMA DE BUSQUEDA SECUEN-CIAL, QUE PODRAS AMPLIAR Y DE-SARROLLAR A TU GUSTO."
1 F$(I)","04CF.CICLO ","<81C","2C80
1 F$(9,10)","044IN.CICLO","#813","2420
1 EL INTERFACE 1 ES UNA DE LASEXPANSIONES MAS INTERESANTESPARA EL <SPECTRUM>. PUEDE MANEJAR TRES TIPOS DEUNIDADES PERIFERICAS: <MICRO-DRIVE>,<INTERFACE RS 232>,<REDLOCAL> (HASTA 64 SPECTRUM).% %EL MICRODRIVE ES UNA UNIDADCAPAZ DE MEMORIZAR SOBRE UNCARTUCHO CON CINTA ADECUADA,APROXIMADAMENTE 90 KBYTES DEPROGRAMAS O DE DATOS. LA VELOCIDAD DE TRANSFERENCIAES MUY SUPERIOR A LA DE LAGRABADORA, LO QUE PERMITE A-PLICACIONES COMO LA GESTIONAUTOMATICA DE ARCHIVOS O PRO-GRAMA, QUE DE OTRO MODO ERANIMPENSABLES, SIN CITAR LA CO-MODIDAD DERIVADA DEL AHORRO DETIEMPO. LA INTERCAMBIABILIDAD DE LOSCARTUCHOS PERMITE ADEMAS AU-MENTAR A PLACER LA CANTIDAD DEDATOS MEMORIZADOS.% %VEAMOS LAS INSTRUCCIONES PRO-PIAS DE ESTE DISPOSITIVO:& &FORMAT "M";drive;nombre& &ASIGNADO A <drive> EL NUMEROQUE LE CORRESPONDA, Y A <nom-bre> EL NOMBRE DEL CARTUCHO.%%LA INICIALIZACION CONSISTE ENEL BORRADO COMPLETO DE LA CIN-TA, Y EN LA SUCESIVA ESCRITURADE
1 EL INTERFACE 1 A DIFERENCIA DELA PANTALLA, EL TECLADO, Y LAZX PRINTER, NO TIENE CANALESASIGNADOS AUTOMATICAMENTE, PORLO CUAL ES NECESARIO EJECUTARCON ANTERIORIDAD UNO ( O VA-RIOS) <OPEN>, SI DESEAMOS REA-LIZAR OPERACIONES SOBRE ARCHI-VOS.% %POR EJEMPLO:& &OPEN ^6;"M";2;"BASIC"& CONECTA LA CORRIENTE 6 CON ELARCHIVO <BASIC> DEL MICRODRIVE<2>; SI EXISTIERA YA UN ARCHI-VO CON ESTE NOMBRE, SERA CON-SIDERADO DE LECTURA, Y ACEPTA-RIA UNICAMENTE OPERACIONES DEINPUT;SI NO FUERA ASI, ES INI-CIALIZADO UNO, Y ASIGNADO PARAESCRITURA.DESPUES DE <OPEN> LACORRIENTE ESTA DISPONIBLE PARATODAS LAS INSTRUCCIONES DE AC-CESO (LIST, PRINT, INPUT, ETC)EXISTENTES EN EL SPECTRUM.% %TODAS LAS OPERACIONES POSIBLESCON LA GRABADORA, TAMBIEN SONREALIZABLES POR EL MICRODRIVE;PERO SON NECESARIAS ALGUNASINFORMACIONES COMPLEMENTARIAS.POR EJEMPLO:& &LOAD *"M";1;"VIDEOBAS"& CARGA EN MEMORIA EL PROGRAMA<VIDEOBAS> EXISTENTE EN EL MI-CRODRIVE <1>;% %SA
1 EL INTERFACE 1 ACEPTA TODASLAS INSTRUCCIONES DE ACCESO AARCHIVOS (PRINT, INPUT, ETC.)EXISTENTES EN EL SPECTRUM.% %AL NO ESTAR PREVISTAS ASIGNA-CIONES AUTOMATICAS, ESTAS HA-BRAN DE REFERIRSE A UNA DETER-MINADA CORRIENTE QUE IRA ASO-CIADA A UN CANAL MEDIANTE<OPEN>. POR EJEMPLO:& &OPEN ^6;"M";3;"BASIC" OPEN ^15;"B" INPUT ^6;A$;C PRINT ^15;"INGELEK"% %<INPUT> REFERIDO AL INTERFACE1 NO ES VALIDO EN CUALQUIERFORMA QUE IMPLIQUE UNA SALIDA(MENSAJES, COMAS, ETC.); LASPOSIBLES ASIGNACIONES MULTI-PLES DEBEN SEPARARSE CON <;>.POR EJEMPLO:& &INPUT ^12;A$;CODIGO;F$(3);X% %CADA REGISTRO DEBE TERMINARUNICAMENTE CON UN CARACTER<13> (ENTER). ESTE ULTIMO SEENVIA AUTOMATICAMENTE SI PRINTNO ACABA CON <,> O <;>; O BIENMEDIANTE CHR$(13), O <'>.% % Por lo tanto:& &PRINT ^9;A$'B$& &genera 2 registros, pero:& &PR
1 EJERCICIOSs
1 EJECUTAREMOS EL PROGRAMA. OB-SERVA SI PARA LA BUSQUEDA DELARCHIVO TIENES LAS SUFICIENTESINFORMACIONES PARCIALES.":
1 DOS O MAS ORDENADORES (EN ELCASO DEL SPECTRUM HASTA UN MA-XIMO DE 64) QUE SE COMUNICANENTRE ELLOS CONSTITUYEN UNARED LOCAL (N). EN EL SPECTRUMLA CONEXION FISICA SE REALIZAA TRAVES DEL CABLE ENTREGADOCON EL INTERFACE 1,INSERTANDO-LO EN EL CONECTOR ADECUADO.% %PARA PODER ENTRAR EN LA RED, ACADA UNIDAD SE LE ATRIBUYEUNA DIRECCION COMPRENDIDA EN-TRE 1 Y 64, MEDIANTE:& & FORMAT "N",XX& &DONDE <XX> ES EL NUMERO AASIGNAR. LAS OPERACIONES DE GRABACION,LECTURA, ETC., SE EJECUTAN ENLA FORMA HABITUAL PERO ESPECI-FICANDO EL NUMERO DE UNIDADCON LA QUE SE DESEA CONECTAR:%SAVE *"N";4& &ENVIA EL PROGRAMA (DEL QUE NOSE ESPECIFICA EL NOMBRE) A LAUNIDAD N.4; OBVIAMENTE CON AN-TERIORIDAD TENDRA QUE HABERSEEJECUTADO:& &FORMAT "N",4 LOAD "N";2& &SUPONIENDO QUE LA UNIDADTRANSMISORA TENGA PRECISAMENTELA DIRECCION <2>.% %INDICANDO <0> COMO DIRECCION,LA
1 CC-AA,DD-BB,EE:
1 CARACTER QUE INDICA EL FIN DEUN ARCHIVO EOF
1 CAR TEST
1 CAR PROG
1 CAR NEXT
1 CAR LIST
1 CAR LENG6
1 CAR LENG5
1 CAR LENG4
1 CAR LENG3
1 CAR LENG2
1 CAR LENG1
1 CAR JUEGO
1 CAR HARD
1 CAR EJER
1 CAR BREAK
1 C.MONTERA 15
1 C.LATINA 51
1 BORRA UN ARCHIVO DE UN CARTU-CHO ERASE
1 BLOQUES EN LOS QUE SE DIVIDELA CINTA DEL CARTUCHO SECTORES
1 B>x~<|<<><
1 B$="------------"
1 ARCHIVO DE ACCESO ALEATORIO RANDOM
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO, CON LA NUMERACION HABI-TUAL DE 10 EN 10.
1 AA,BB,CC,DD,EE:
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="METODO DE ACCESSO":
1 A$="INTERFACE RS232":
1 A$="EL INTERFACE 1 Y EL ARCHIVO":
1 A$=" INTERFACE 1":
1 A$=" ARCHIVOS Y SPECTRUM":
1 A$=" ARCHIVO":
1 A$(I)=X$",""
1 =n-(n)=n-(
1 ;x3-x2,y3-y2
1 ;n$;" has vivido ";gt'"dias, hasta el 1 de ";m$(m)
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"ejemplos y ejercicios";
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC"
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"SPECTRUM. Hasta pronto,";
1 ;"PREPARA PRIMERO UN BOCETO GEOME-TRICO DE TU DIBUJO..."
1 ;"PREGUNTA N. ";w
1 ;"PON EN MARCHA LA GRABADORA":
1 ;"PARA MEJORAR VUELVE A LEER";
1 ;"OTRA VEZ"
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"HASTA PRONTO":
1 ;"Guarda la cinta en su caja,";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"DURANTE ESTE VIDEOBREAK, TENDRASLA OPORTUNIDAD DE OBSERVAR COMOSE PUEDE DESARROLLAR UNA IMAGEN,UTILIZABLE LUEGO CON DIVERSOSOBJETIVOS."
1 ;"...Y DESPUES INDICA LOS DETALLESY COLORES. "
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" SIGUIENTE"
1 ;" ESTA BIEN ESCRITO, ";
1 ;" PARA LA GRABADORA ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" "
1 9","046INT.NOM.","#813","2630
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888r
1 8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888$
1 6;""M"";1;""DATOS""","...AHORA, TENIENDO QUE GRABARSOBRE EL ARCHIVO <DATOS> ATRAVES DE LA CORRIENTE <6>,SERA NECESARIO REALIZAR..."
1 6","BIEN. COMO NO TIENES NADA MASQUE GRABAR PUEDES TERMINAR CON...","",""
1 5TRADUCCION
1 5 FASE BUSQUEDA"
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 3;""T""","ASIGNA AL CANAL <T>","LA CORRIENTE DIRECCIONADA","POR <LLIST>",""
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE DE CALCULO","COMO BUSCAREMOS LAS INFORMA-CIONES ?",""
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS NECE-SARIOS EN EL PROBLEMA ?",""
1 1 FASE INTROD. ","042DIM.ARCH","#810","2210
1 0000888880000000000000000000
1 00008((8((800000000000000000
1 00008(((88800000000000000000
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888g
1 ...................................
1 -J/A,ER+J/A*.7
1 ,XX;" ":
1 *4";t$;" ":
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***pulsa tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 ***********************
1 *(m-m1)+0.5
1 *(a2-a1))+
1 *""M"";1;""PROG""","CARGA DEL MICRODRIVE <1>","EL PROGRAMA <PROG>",""
1 )="Septiembre":
1 )="Octubre":
1 )="Noviembre":
1 )="Marzo":
1 )="Junio":
1 )="Julio":
1 )="Febrero":
1 )="Diciembre"
1 )="Agosto"
1 )="Abril":
1 ));q$(q,65
1 ("reg. ";i;" ");
1 #6;COD;N$","SITUA EN LAS VARIABLES","<COD> Y <N$>, LOS DATOS LEIDOS","DESDE LA CORRIENTE #6",""
1 #6;"""+N$+"""","AHORA, EN EL ARCHIVO RECIENABIERTO, INDICA TU NOMBRE. ENLUGAR DE <PRINT> USA <LPRINT>."
1 #3,1","ENVIA EL <CAT> DEL MICRODRIVE","1 A LA IMPRESORA (CORRIENTE 3)",""
1 #2","LISTA EL ARCHIVO <A>","REFERIDO AL MICRODRIVE <1>","SOBRE LA PARTE SUPERIOR DE LA","PANTALLA (CORRIENTE #2)",""
1 "yl+i+u",xl;"
1 "xg+xs/2",yg+ys*
1 "i*2+5",u;:
1 "VEAMOS AHORA ALGUNOS EJEMPLOSPRACTICOS; DESPUES SEGUIREMOSCOMO DE COSTUMBRE, CON ALGUNASPREGUNTAS PARA COMPROBAR LOQUE HAS APRENDIDO.",""
1 "Utilizando un bucle FOR-NEXT.Analizaremos los <9> registrosbuscando el que sea igual a laclave C$.",""
1 "SAVE *""N"";3 LINE 100","EL INTERFACE 1 ACEPTA TODASLAS FORMAS DE GRABAR Y CARGAR.",""
1 "ROSA C.ROMA 15 204758","PEDRO C.MADRID 2 267288","NURIA C.CHILE 18 876542","CARLOS V. BASIC 5 448258"
1 "RESPUESTA = ";
1 "PULSA ""N"" PARA EL BIORRITMODEL PROXIMO MES"'""''"PULSA ""Z"" PARA IMPRIMIR EL BIO-RRITMO"'''"PULSA ""A"" PARA UN NUEVO BIORRIT-MO"'''"PULSA ""C"" PARA CONTINUAR "
1 "PRINT #4;CHR$ 12;#3;A$","ABRIENDO, POR EJEMPLO, LA CO-RRIENTE #4 CON <B> Y LA #3 CON<T>, ES POSIBLE ENVIAR LISTA-DOS Y CARACTERES DE CONTROL U-SANDO SIMULTANEAMENTE AMBOSCANALES.",""
1 "Nombre"," ",
1 "Nombre del bloque...",
1 "NOMBRE ";
1 "Mes ? ";m'"Ano ? ";a2
1 "MOVE ""N"";7 TO ""T""","CON ESTA SENCILLA INSTRUCCIONES POSIBLE ENVIAR AL CANAL <T>TODO LO QUE SE RECIBA DE OTROSSPECTRUM CONECTADOS A LA RED.",""
1 "LOAD *""M"";1;""""","ESTA INSTRUCCION TAMBIEN ESERRONEA:EL MICRODRIVE NO ACEP-TA NOMBRES NULOS.",""
1 "Interf.1 ",
1 "FORMAT ""M"";1;""MICROCART#1""","ESTA INSTRUCCION ES ERRONEAPUESTO QUE LA LONGITUD DELNOMBRE NO DEBE SUPERAR LOS 10CARACTERES.",""
1 "El resultado consiste en laimpresion de todos aquellosregistros cuya parte inicialsea igual a la clave C$.","",""
1 "ERASE A$;N;B$","TAMBIEN LAS INSTRUCCIONES RE-FERENTES AL INTERFACE 1 ACEP-TAN VARIABLES EN LUGAR DE VA-LORES ABSOLUTOS.",""
1 "EN LA FASE PRELIMINAR MEMORI-ZAREMOS NUEVE OPERACIONES(NOM-BRES, PALABRAS, NUMEROS). ACONTINUACION LOCALIZAREMOS LASQUE DESEEMOS EN BASE A UNACLAVE (O ARGUMENTO PARTICULAR)DE BUSQUEDA.",""
1 "EL PROGRAMA QUE ANALIZAMOS ES-TA VEZ, SE REFIERE A UNA TIPI-CA OPERACION INFORMATICA: LAMEMORIZACION Y BUSQUEDA DE IN-FORMACIONES.",""
1 "Durante la primera fase, in-troduciremos 9 informaciones;a continuacion, indicaremos laclave para la busqueda.",""
1 "Dia ? ";g1'"Mes ? ";m1'"Ano ? ";a1
1 "CAT #7,2","ASIGNANDOLE, POR EJEMPLO, ELCANAL 7 A UN FICHERO DE MICRO-DRIVE, ES POSIBLE MEMORIZAR SUCATALOGO <CAT>.",""
1 "CARLOS","LET A$(2, TO 8)=N$",
1 "AHORA, "+N$+"
1 "9";"PROXIMO PROGRAMA";
1 "8",a+j;a$(j):
1 "8","18","LET A$(2,9 TO 10)=STR$ EDAD",
1 "8"," "
1 "7-(i>13)";b$:
1 "7";"VBASIC "'" "'"Datos 1 "'"Arch. 1 "'"Arch. 2 "'"Progr 1 "'"Progr 2 "'" "'"36 ":
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "7","SAVE "
1 "60 IF A$(P)=X$ THEN LET L=P:GOTO 80","70 IF H<>L THEN GOTO 20","80 PRINT ""NUMERO REGISTRO "";L",""
1 "6";"TELEF: 11..18"
1 "6";"PULSA";
1 "6";"BORRADO",:
1 "6";" ":
1 "5937"(i),u;:
1 "5";"JULIA
1 "5","LET TEL=
1 "4";"LUISA
1 "4";"LECTURA",:
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "4";"EDAD: 9..10":
1 "4";"ALBERTO
1 "4";" ";
1 "4","LET N$=A$(2,
1 "3795"(i),j);:
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3",u;" ROSA C.ROMA 15 204758"''" PEDRO C.MADRID 2 267288"''" NURIA C.CHILE 18 741670"''" CARLOS V. BASIC 5 448258"
1 "2=3<"(i)-
1 "28"," F$()"
1 "23617",u:
1 "23617",U:
1 "23295+I",
1 "23"," DATA","Nombre matriz en memoria....",
1 "20",U;b$:
1 "20",U;B$:
1 "2";"SUMA",:
1 "2";"NOMB.: 1...8":
1 "2","LET EDAD=
1 "2"," Direccion "," ",
1 "19","""B""","Inform. tipo DATOS......",
1 "168-S*8+3":
1 "16",";1;"
1 "16","987654","LET A$(2,11 TO )=STR$ TEL",
1 "13",";""M""","Unidad 1........",
1 "12GD"(i)-
1 "127-XL/2",
1 "12",U;B$:
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "10","Telef."," ",
1 "10","*","Microdrive..",
1 "10 INPUT ""NUEVO NOMBRE "";X$","20 LET N=N+1","30 FOR I=N TO 2 STEP -2","40 IF A$(I-1)>X$ THEN LET A$(I)=A$(I-1):NEXT I","50
1 "10 INPUT ""EDAD: "";X","20 FOR I=1 TO 3","30 IF VAL A$(I,9 TO 10)=X THEN PRINT A$(I)","40 NEXT I",""
1 "10 FOR J=N-1 TO 1 STEP-1","20 FOR I=1 TO J","30 IF A$(I)>A$(I+1) THEN LET W$=A$(I):LET A$(I)=A$(I+1):LET A$(I+I)=W$","40 NEXT I:NEXT J",""
1 "10 ....","20 ....","30 IF A$(I,XX TO YY)>A$(XX TO YY) THEN ....","40 ....",""
1 "06?PRUB","<41;","0=?S","09AIMPRI.","#619","2?70
1 "04:IN.BUSQ.","#813","2:50
1 "048 FIN ? ","<813","2840
1 "*1 ","% "
1 ""T"",2400","ASIGNA AL CANAL <T>","LA VELOCIDAD DE 2400 BAUD",""
1 ""NOMB."";F$(I)"
1 ""M"";1;""CART1""","HAS COMPRADO UN CARTUCHO QUEDESEAS LLAMAR <CART1>. INTEN-TA ESCRIBIR LA INSTRUCCION QUESIRVE PARA HACERLO OPERATIVO.USA EL MICRODRIVE <1>."
1 ""M"";1;""A""
1 ""BUSQ. "";C$","04<IN.CICLO","#813","2<60
1 """";z$;""""
1 " ","10 LET H=N","20 LET H=INT(H/2)","30 FOR L=1 TO N-H","40 FOR I=L TO 1 STEP -1","50 LET J=I+H","60 IF A$(I)>A$(J) THEN LET W$=A$(I):LET A$(I)=A$(J):LET A$(J)=W$:NEXT I","70 NEXT L","80 IF H>L THEN GOTO 20",""
1 " ","10 INPUT ""DATO SOLICITADO"";X$","20 LET H=N:LET L=1","30 LET P=INT((H+L)/2)","40 IF A$(P)<X$ THEN LET L=P+1","50 IF A$(P)>X THEN LET H=P"
1 " CONSULTEMOS "," EL ARCHIVO "
1 VUELTA LA PRINCIPIO";
1 Tel.031-240.959
1 REPETIR";
1 PON EN MARCHA LA GRABADORA
1 INTRODUCCION";
1 EJERCICIOS";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CARGAR EL";
1 CARGAR EL VIDEOJUEGO";
1 AL BASIC ":
1 ** ** ** ***********************
1 ** ** ** **
1 Tel.031-240.959
1 D A T A
1 Pon en marcha la grabadora
1 **
1 ":
1 *********************** ** ** **
1 ***********************
1 8888888888888888888888888888888888888888888888888888888888888888
1
1
1
1
1
1
1